home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / logom.dxr / Internal (lingo)_1.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  930 b   |  45 lines
  1. on startMovie
  2.   global gDefaultSoundLevel
  3.   clearGlobals()
  4.   cursor(-1)
  5.   set gDefaultSoundLevel to the soundLevel
  6.   set the soundLevel to 3
  7.   updateStage()
  8. end
  9.  
  10. on stopMovie
  11.   global gDefaultSoundLevel
  12.   set the soundLevel to gDefaultSoundLevel
  13.   updateStage()
  14.   clearGlobals()
  15.   unLoad()
  16. end
  17.  
  18. on mouseDown
  19.   global gMouseDownScript
  20.   if gMouseDownScript = 1 then
  21.     hEscapeLogo()
  22.   end if
  23. end
  24.  
  25. on hEscapeLogo
  26.   cursor(4)
  27.   hDecreaseSound([1, 2], 0, 255)
  28.   go("escape")
  29.   set the mouseDownScript to EMPTY
  30. end
  31.  
  32. on hDecreaseSound pSoundChannel, pMinVolume, pMaxVolume
  33.   repeat with i = pMaxVolume down to pMinVolume
  34.     repeat with tSoundChannel in pSoundChannel
  35.       set the volume of sound tSoundChannel to i
  36.       updateStage()
  37.     end repeat
  38.   end repeat
  39.   repeat with tSoundChannel in pSoundChannel
  40.     puppetSound(tSoundChannel, 0)
  41.     updateStage()
  42.     set the volume of sound tSoundChannel to pMaxVolume
  43.   end repeat
  44. end
  45.